1 POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147][159] [195]-64 / [195]-128":PRINT" [211]IMPLE/[211]EQUENTIAL/[210]EADER":PRINT" (C) 1986 BY [211]TEVE [196]. [206]ICHOLS.":PRINT" [198][210][197][197] COPIES ONLY....":PRINT"[159] [215]-THANKS TO UNKNOWN AUTHOR OF":PRINT" SEQ READ ROUTINE TACKED ONTO END. 2 [153]"PRINT (null)UT DISK WITH SEQ. FILES IN DRIVE,":[153]" AND PRESS  (null)VAL(null)(null)(null)(null) WAIT....OPEN 3 GETZ$:IFZ$<>CHR$(13)THEN3 4 DIMB$(141):A%=1:PRINT"[155]LOADING FILENAMES...[159]":C$=CHR$(34):OPEN1,8,0,"$":FORN=1TO28:GET#1,W$:N$=N$+W$:NEXT 5 GET#1,W$,W$,W$,W$ 6 IFSTTHEN14 7 GET#1,W$:IFW$<>C$THEN6 8 GET#1,X$ 9 GET#1,W$:IFW$<>C$THENX$=X$+W$:GOTO9 10 B$(A%)=X$:PRINTB$(A%) 11 GET#1,W$:IFW$="S"THENA%=A%+1:PRINT"[145]_ SEQ. FILE[159] 12 [139]W$[179][177]""[167]11 13 [137]5 14 D%[178]1:M%[178]42:N%[178]1:[160]1 15 [153][199](14)"LOADCONT DISK MENU WAITSYS";N$:[153]"OPEN PRESS RETURN FOR NEXT PAGE. 16 PRINT"[155]"N%"[157][146]"B$(N%)TAB(20)"[155]"N%+1"[157][146]"B$(N%+1):N%=N%+2:IFN%43THENN%=1 18 P%=VAL(P$):IFP$=""ANDN%>42ANDN%<=A%THENM%=83:N%=43:D%=43:GOTO15 19 IFP%=A%ORP>=M%THEN14 20 DN=3:SA=0:C$="":PRINT"[147][158] [198]ILENAME... "B$(P%):INPUT"OUTPUT TO CREEN OR

RINTER ? S[157][157][157]";IN$:IFLEFT$(IN$,1)<>"S"THEN22 21 C$="":IFIN$="S"GOTO23 22 DN=4:SA=7:PRINT 23 PRINT:OPEN4,DN,SA:D$=C$:T=0:OPEN1,8,5,B$(P%):PRINT"[158]PRESS ANY KEY TO PAUSE PRINTING ... 24 [161]#1,A$:OK[178](ST):[139]DE[178]3[137]27 25 [139]A$[178]"LOAD"[167]A$[178][199](17) 26 [137]30 27 [139]A$[179][177]"LOAD"[137]30 28 [153]" PRESS ANY KEY TO CONTINUE WAIT 29 GETIN$:IFIN$=""GOTO29 30 GETZ$:IFZ$=""THEN35 31 PRINT:PRINT"[159] [208]AUSE: <[205]> = [205]ENU, <[195]> = [195]ONTINUE [146] 32 [161]Z$:[139]Z$[179][177]"M"[175]Z$[179][177]"C"[167]32 33 [139]Z$[178]"M"[167]43 34 Z$[178]" 35 PRINT#4,A$;:IFOK<>0GOTO41 36 IFDE=3GOTO24 37 IFA$<>CHR$(34)GOTO24 38 IFT=0THEND$="":T=1:GOTO24 39 IFT=1THEND$=C$:T=0:GOTO24 40 PRINT"ERROR 41 [153]" OPEN PRESS ANY KEY WAIT 42 GETA$:IFA$=""THEN42 43 CLOSE4:CLOSE1:GOTO14